﻿<!-- #include file="ding.asp" -->
<!-- #include file="mymin.asp" -->
<%Call Head%>
<card title="网站设计中心"><p>
<%
IF KEY<>0 then
	Call Error("你的权限不足！")
end if

w systemMsg

%>
<a href="preview.asp?sid=<%=sid%>">[设计预览]</a><br/>
<a href="classadd.asp?sid=<%=sid%>">[添加栏目]</a><br/>
-----------<br/>
<%
Dim rs
set rs=server.createobject("adodb.recordset")
rs.open "select classid,lx,pid,class from 74hu_class where parent=0 order by pid asc,classid desc",myconn,3,1

If Not rs.eof Then
	dim pagesize,page,count,pagecount,i
	PageSize=15
	Count=rs.recordcount
	page=getN("page",1)
	if page<=0 then page=1
	pagecount=(count+pagesize-1)\pagesize
	if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
	For i=1 To PageSize
		If rs.eof Then Exit For
		w "<a href=""clist.asp?sid="&sid&"&amp;id="&rs("classid")&"&amp;lx="&rs("lx")&""">[管理]</a>"&rs("pid")&"."&nowml(left(rs("class"),10))&"<br/>"
		rs.moveNext
	Next
	w showPage("class.asp", "", page, pageCount)&"<br/>"
Else
	w "暂时没有栏目！<br/>"
end if

rs.close
set rs=nothing%>
-----------<br/>
<a href="classadd.asp?sid=<%=sid%>">[添加栏目]</a>
<%Call rootLast%>